home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / GS.PTD / SCRIPTS / DB.SCP next >
Encoding:
Text File  |  1988-05-08  |  6.0 KB  |  328 lines  |  [04] ASCII Text (0x0000)
  1.  
  2. %if¶backÏinkÌenu
  3. %code∞≥
  4. %bcolor∞Êcolor≥Âscreenalette≥20∞±5±5±5‚order≤
  5. %window∞∑0∂40≤00
  6. œneÌoment,lease.†Your¡pple¶NÈsreparingÙheÛection„alled
  7. ¢Database."†(Don'tÊorget--whenever˘ou˜antÙoÁo‚ackÙoÙhe
  8. ÌainÌenu,ÍustressÙhe≈scÎey.)
  9. %s±ßdata/db.txt'
  10. %s∂¢%window≤0±35¥00≤00"
  11. %s≈¢%bcolor±˜indow≥0¥0µ75±73‚color≥"
  12. %sΔ¢%fontÌonaco.9˜rapÔff„enterÔffÛ±ßdb.txt'"
  13. %s«¢%code≤≤2ÊontÛys˜rapÔn„enterÔn"
  14. %sƒ¢%hilite≤49≤8≥22±75"
  15. %code≤∞˜ait∞
  16. %loadinst¥Ûtring‚ass.l¢"˜ait∞
  17. %loadinst≤‰rumËidrum.w¢"˜ait∞
  18. %loadinst≥‰rumÏodrum.w¢"˜ait∞
  19. %loadinst±ÁuitarÁuitar.l¢"˜ait∞
  20. %preloadÁfx/m2.02††˜ait∞
  21. %preloadÁfx/m2.28††˜ait∞
  22. %preload‰ata/db.menu†wait∞
  23. %preload‰ata/db.txt†˜ait∞
  24. %preloadÁfx/m1.06††˜ait∞
  25. %preloadÁfx/m1.06a††wait∞
  26. %preloadÁfx/cues˜ait∞
  27. %preloadÁfx/altcues˜ait∞
  28. %preloadÛfx/menu2open.song
  29. %preloadÛfx/menu2exit.song˜ait∞
  30. %code∞≤
  31. %sfxÌenu2open
  32.  
  33. %m 1
  34. %if¶back„uesÔff
  35. %bcolor∞Êcolor≥Âscreenalette≥20∞±5±5±5
  36. %escreen
  37. %window∞∞∂40≤00
  38. %cues¥54±82
  39. %gfx∞Ì1.06π4±9
  40. %gfxpart±Ì1.06a≤84≥6∞∑8≤40±55
  41. %BOLDœN˜indowµ4±33¥12≤00˜rapÔn
  42. DATABASE
  43. %boldÔff
  44.  
  45. A‰atabaserogramÌanagesÏistsÔf
  46. information.†ItÙakesÙhelaceÔfÔtherÔrganizingÛystems,
  47. such·sÊileÊolders,Èndex„ards,ÔrÛhoeboxes
  48. fullÔfÏittleÛcrapsÔfaper.
  49. %windowµ4±51¥12≤00
  50. %get act
  51.  
  52. %m 2
  53. %cuesÔff‚color±alette≥20µ±3±3±5
  54. %palette∂40±±3±3±5Âscreen˜indow∞∞∂40≤00
  55. %palette∂40≤†2†0†9alette∂40∞†0†0†0alette∂40≥±5±5±5
  56. %newmenu‰bÊcolor∞‚color≥
  57. %cues¥54±82
  58. %gfx∞Ì2.02≤0±6
  59. %gfx∞Ì2.28≤0≤8
  60. %moveto≤84≤6
  61. TravelÃog
  62. %box±0±37¥16±97
  63. MosteopleËaveÛomeÛortÔfÈnformationÙo
  64. keepÙrackÔf--an·ddressÏist,·ÌembershipÏist,
  65. aÏistÔf„ustomersÔr„lients.†Just·s·n
  66. example,Ïet'sÛay˘ou'reÎeepingÙrackÔfÈnformation
  67. about˘ourÙravels.
  68. %get act
  69.  
  70. %m 3
  71. %unbox
  72. %if¶backËilite·rea≤∞¯¶EÁfx∞Ì2.28≤0≤8
  73. %box±0±52≥72±97
  74. First˘ou‰ecide˜hat„ategories˘ou˜ant...
  75. %fontÌonaco.9†boldÔnÌoveto∏0≥7·utoÔn
  76. Place
  77. %moveto±88≥7˜ait≥
  78. Season
  79. %moveto†273≥7˜ait≥
  80. Year
  81. %moveto≥70≥7˜ait≥
  82. Companions
  83. %movetoµ17≥7˜ait≥
  84. Slides
  85. %fontÛys·utoÔff‚oldÔff¿wt∞±
  86.  
  87. AndÙhen˘ouÊillÈnÙheÈnformation.
  88. %get act
  89.  
  90. %m 4
  91. %unbox¯¶E
  92. %s≤ßonly∞±≤≥¥µ∂∑∏π±0±1'
  93. %x¶F¯¶GÛ·rea≤≤3∂2µ83∑3Ëilite·rea≤∞
  94. %box±0±52≥86±97
  95. EachÏineÔfÙheÏistÈs„alled·Úecord.
  96. Most‰atabaserograms„anËoldÛeveralËundred
  97. records.†There·re±35ÚecordsÔn˘ourÏist.
  98. %get act
  99.  
  100. %m 5
  101. %if¶backÍ‚ack
  102.  
  103. %m 6
  104. %if˛&backËilite·rea≤∞
  105. %s·rea≤∞∞∞∞ınbox
  106. %if¶back¯¶D
  107. %box±0±09¥02±97
  108. RightÓow,Ùhey·ren't·rrangedÈn·nyÛpecialÔrder.
  109. But˘ou˜antÙhemÏisted„hronologically‚yÙhe˘ear.
  110. Here'sËowÙo‰oÈt.
  111.  
  112. %wrapÔff„enterÔff
  113. &PÕoveÙheointerÈntoÙheËeadingÔfÙhe
  114. †Year„olumn.
  115.  
  116. &P√lickÙoÛelectÙhat„olumn.
  117. %s·rea±≤50≤9≥22≥9Û¥ßthe„olumnËeadingÏabeled¢Year"'
  118. %wrapÔn„enterÔn
  119. %get any
  120. %if¶actΩ≥Í´±
  121. %if &act <> -1 unbox box 12 150 420 197 rem click j get
  122. %sfx≥
  123. 4±2µ9∞±20
  124. 4±2∂2∞±20
  125. 4±2µ5∞±20
  126.  
  127. %m 7
  128. %unbox
  129. %if˛&backÛkip±
  130. %x¶E
  131. %fontÌonaco.9
  132. %s≤ßonly∞±≤≥¥µ∂∑∏π±0±1'¯¶F¯¶G
  133. %w
  134. %x¶D
  135. %box±0±09≥44±53
  136. &PŒow„hoose
  137. %boldÔn
  138. Ascending
  139. %boldÔff
  140. fromÙhe
  141. %boldÔn
  142. Organize
  143. %boldÔff
  144. menu.
  145. %s¥œrganizeÛµ¡scending
  146. %get menu
  147. %if®&selΩµ001)Ôr®&actΩ≥)†j´±
  148. %box 10 109 422 153 rem menu j get
  149.  
  150. %m 8
  151. %if¶selº>µ001Ûkip±
  152. %sfx≥
  153. 4±2µ5∞±20
  154. 4±2µ9∞±20
  155. 4±2∂2∞±20
  156. %w
  157. %unbox
  158. %if˛&back¯¶D
  159. %x¶E
  160. %s≤ßonly±0±1±2±3∑∏≤±∞¥∂π'¯¶F¯¶G
  161. %box±0±09≥44±53
  162. Instantly,ÙheÏistÈs·rranged‚yÙhe˘ear.
  163. You„an·rrangeÈt·ccordingÙo·nyÔfÈts„olumns.
  164. %get act
  165.  
  166. %m 9
  167. %unbox
  168. %box±0±37¥16±97
  169. Today˘ou˜antÙoÊindÙheÚecordsÊor·llÙhe
  170. trips˘ou'veÙaken˜ith˘ourÊriend“.¬ott.
  171. %get act
  172.  
  173. %m 10
  174. %if˛&backÛkip±
  175. %unbox·utoexitÔff
  176. %x¶E
  177. %s≤ßonly±0±1±2±3∑∏≤±∞¥∂π'¯¶F¯¶G
  178. %box±0±37¥16±97
  179. %w
  180. %e
  181. It„ouldÙake˘ou·˜hileÙoÛearch
  182. theÂntireÏistÊorÙheseÚecords.
  183. Fortunately,˘ou‰on'tËaveÙoÛearch.
  184. The‰atabaserogram˜ill‰oÈtÊor˘ou.
  185.  
  186. &PΔromÙhe
  187. %boldÔn
  188. Select
  189. %boldÔff
  190. menu,„hoose
  191. %boldÔn
  192. Certain“ecords
  193. %boldÔff
  194. %s¥¢Select"Ûµ¢Certain“ecords"
  195. %get menu
  196. %if¶actΩ≥Í´±
  197. %if &sel <> 6002 rem menu j get
  198. %sfx≤
  199. 4±8µ5∞±20
  200. 4†9∂0∞±20
  201.  
  202. %m 11
  203. %unbox
  204. %if˛&backÛkip±
  205. %x¶E
  206. %s≤ßonly±0±1±2±3∑∏≤±∞¥∂π'¯¶F¯¶G
  207. %w
  208. %bcolor±
  209. %eraserect†97¥4µ03†137†††setpensize≥±
  210. %framerect±00¥5µ00†133
  211. %framerect±04¥7¥96†131
  212.  
  213. %framerect±25±13¥75±27
  214. %framerrect±35∏8≤45±01
  215. %framerrect≥20∏7¥30±02
  216. %framerrect≥24∏9¥26±00
  217. %moveto≥66π8
  218. OK
  219. %moveto±60π8
  220. Cancel
  221.  
  222. %btn±±25µ5
  223. Place
  224. %btn≤±25∂5
  225. Date
  226. %btn≥±25∑5
  227. Companions
  228. %btn¥≥10µ5
  229. Equals
  230. %btnµ≥10∂5
  231. is«reater‘han
  232. %btn∂≥10∑5
  233. isÃess‘han
  234. %bcolor≥‚ox±0±44≥86±97
  235. You'reÁoingÙo„onstruct·Ûentence
  236. that‰escribesÙheÚecords˘ou˜antÙo
  237. see.
  238. %@wt∞≤Û¥ßthe‚ox‚esideÙhe˜ord¢Companions"'
  239.  
  240. &P√lickÙhe‚ox‚esideÙhe˜ord¢Companions."
  241. %s 0 0 get any
  242. %if¶actΩ≥Ûkip±
  243. %if &act <> -3 rem click j get
  244. %sfx≥
  245. 4±2∂0∞±20
  246. 4±2∂4∞±20
  247. 4±2∂0∞±20
  248. %w
  249.  
  250. %e
  251. %paintrect·rea≥Ìoveto±38±23ÊontÌonaco.9
  252. Companions
  253. %fontÛys¿wt∞∞
  254. &P√lickÙhe‚ox‚eside¢Equals."
  255. %s 4 'the box beside the word "Equals"' get any
  256. %if¶actΩ≥Ûkip±
  257. %if &act <> -4 rem click j get
  258. %sfx≤
  259. 4±2∂0∞±20
  260. 4±2µ5∞±20
  261. %w
  262.  
  263. %paintrect·rea¥ÂÌoveto≤10±23ÊontÌonaco.9
  264. =
  265. %fontÛys¿wt∞∞
  266. &P‘ype
  267. %boldÔn
  268. Bott
  269. %boldÔff
  270. %sµ‚ottÛ¥¢Bott"ÊontÌonaco.9Ìoveto≤30±24‚color±
  271. %autoexit on lc on get "" 4
  272. %if®&actΩ≥)·nd®&ansÛ=¢")Ìoveto≤30±23¯¢Bott"ÊontÛys‚color≥Ûkip≤
  273. %fontÛys‚color≥
  274. %if¶ansÛ=¶5Ûkip±
  275. %remÈnp
  276. %fontÌonaco.9Ìoveto≤30±24‚color±
  277. %j get
  278. %w
  279. %sfx≥
  280. 4±8µ5∞±20
  281. 4±8∂2∞±20
  282. 4†9µ5∞±20
  283. %w
  284. %autoexitÔff
  285.  
  286. %e
  287. That'sÈt.†Now„lickÙheœK‚uttonÙoÌake˘ourÛelection.
  288. %s¥ßtheœK‚utton'Û·rea∑≥26∏9¥24±00
  289. %get any
  290. %if¶actΩ≥Ëilite·rea∑±Ûkip±
  291. %if &act <> -7 rem click j get
  292. %sfx¥
  293. 4±2µ7∞±20
  294. 4±2∂4∞±20
  295. 4±2µ3∞±20
  296. 4±2µ5∞±20
  297. %w
  298.  
  299. %unbox‚color±Âraserectπ7¥4µ03†137
  300. %x¶E
  301. %s≤ßonly±1±3∞∂π≥'¯¶F¯¶G
  302.  
  303. %m 12
  304. %box±0±44≥76±97
  305. AndÙhere·reÙheÚecords
  306. you˜antÙoÛee.
  307. %get act
  308.  
  309. %m 13
  310. %unbox
  311. %box±0±37¥34±97
  312. InÙheÛame˜ay,˘ou„ould‚ringıpÚecords
  313. for·ll˘ourÙripsÙo‘anzania,ÔrÊindÔut˜here˘ou
  314. traveledÈnÙheÊallÔf±972,ÔrÏistÙhe‚ox
  315. numbersÔf·ll˘ourÛlidesÊrom¡ustralia.‘he‰atabase
  316. program˜illullÔutÙheÈnformation˘ouÓeed.
  317. %get act
  318. %loadinst¥Ûtring‚ass.l¢"
  319. %loadinst≤‰rumËidrum.w¢"
  320. %loadinst≥‰rumÏodrum.w¢"
  321. %loadinst±ÁuitarÁuitar.l¢"
  322. %sfxÌenu2exit„ode∞≤2˜ait¥2
  323. %code∞±0‚color±
  324. %linkÌenu
  325.  
  326.  
  327.